Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/Preinstalled MacPerl (FAT)/t/mac/Raw.t

Text File | 1995-10-21 | 103 b | 12 lines | [TEXT/McPL]

#!perl

`stty raw`;

do {
   $c = getc;
} until (defined $c);

`stty sane`;

print "You said: '$c'\n";